Option Explicit
Sub D_Sample028()
    Dim mySht  As Worksheet
    Dim myName As Name
    Set mySht = Worksheets(1)				'Nu@
    'ǳƨ즹
    For Each myName In mySht.Names
        myName.Delete
    Next
    Set mySht = Nothing						'
End Sub
